﻿Public Class RequirementBin


    'Author : Adam Cortz

    Private bID As String
    Private bName As String
    Private courseList As New ArrayList


    Public Sub New()
        bID = ""
        bName = ""
    End Sub

    Public Property BinID() As String
        Get
            Return bID
        End Get
        Set(ByVal value As String)
            bID = value
        End Set
    End Property

    Public Property BinName() As String
        Get
            Return bName
        End Get
        Set(ByVal value As String)
            bName = value
        End Set
    End Property

    Public ReadOnly Property CourseBin() As ArrayList
        Get
            Return courseList
        End Get
    End Property

    Public Sub addCourse(ByRef course As Course)
        courseList.Add(course)
    End Sub

End Class
